esearch = function(baseurl)
   function(database, query, history=FALSE, webenv=NULL, key=NULL, tool='reutils', email=NULL, field=NULL, reldate=NULL, mindate=NULL, maxdate=NULL, datetype=NULL, retstart=0, retmax=100, retmode='xml', rettype='uilist', sort=NULL) {
      parameters = c(db=database, term=query, history=history, WebEnv=webenv, key=key, tool=tool, email=email, field=field, reldate=reldate, mindate=mindate, maxdate=maxdate, datetype=datetype, retstart=retstart, retmax=retmax, retmode=retmode, rettype=rettype, sort=sort)
      object = eutil(baseurl, 'esearch', do.call(query, as.list(parameters)))
      object }
